program readnm
	implicit none
	double precision, allocatable,dimension(:):: x
	double precision, dimension(10)::y
	integer:: n

	namelist /NM/ n, y
	read(unit=*,nml=NM) 
	

	print *, "y=", y

	allocate(x(n))
	x(1:n)=y(1:n)
	print *,"n=", n
  print *,"x=", x
	deallocate(x)
	stop
end program
